#!/usr/bin/perl
# bettercat.pl
use warnings;
use strict;

while (<>) {
   print "$ARGV:$.:$_";
   close (ARGV) if eof;
}
